1 HIMEM#96FF:A$="48ADDF02C990D01EA9008DDF02AD0703C927F00AA9278D06038D0703D008"
2 FORI=1TO40:POKE#96FF+I,VAL("#"+MID$(A$+"A9108D06038D07036840",I*2-1,2)):NEXT